 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        StudentScores("Anne", "10", "26", "32", "15")
        StudentScores("Mary", "High", "Low")
        Dim JohnScores() As String = {"Absent", "35", "21", "30"}
        StudentScores("John", JohnScores)
    End Sub
    Sub StudentScores(ByVal Name As String, ByVal ParamArray Scores() As String)
        Dim I As Integer
        TextBox1.Text &= "Scores for " & Name & ":" & Chr(13) & Chr(10)
        For I = 0 To UBound(Scores)
            TextBox1.Text &= "Score " & I & ": " & Scores(I) & Chr(13) & Chr(10)
        Next
End Sub

